Sports Illustrated for Kids - Awesome Athletes!/Sports Illustrated for Kids - Awesome Athletes!.iso/shared.dir/07430_AssetManager.ls

Text File | 1996-04-18 | 627 b | 31 lines

property iDB

on birth me, aDBCast
  mLoadDB(me, aDBCast)
  return me
end

on mLoadDB me, aDBCast
  if not integerp(aDBCast) then
    set aDBCast to the number of cast aDBCast
  end if
  set iDB to [:]
  set vDB to the text of cast aDBCast
  set vMax to the number of lines in vDB
  set the itemDelimiter to ","
  repeat with vI = 1 to vMax
    set vLine to line vI of vDB
    set vName to item 1 of vLine
    set vNo to item 2 of vLine
    addProp(iDB, vName, vNo)
  end repeat
end

on mGetAssetNo me, aName
  set vPos to findPos(iDB, aName)
  if voidp(vPos) then
    return -1
  end if
  return integer(getAt(iDB, vPos))
end